home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vbgui10 / form5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-26  |  1.3 KB  |  56 lines
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Picture Box Line Demo"
  5.    ClientHeight    =   4695
  6.    ClientLeft      =   1500
  7.    ClientTop       =   1785
  8.    ClientWidth     =   6045
  9.    DrawWidth       =   3
  10.    LinkTopic       =   "Form5"
  11.    ScaleHeight     =   4695
  12.    ScaleWidth      =   6045
  13.    Begin VB.Menu l1 
  14.       Caption         =   "Lines"
  15.    End
  16.    Begin VB.Menu l2 
  17.       Caption         =   "&Pixels"
  18.    End
  19.    Begin VB.Menu l3 
  20.       Caption         =   "&Boxes"
  21.    End
  22.    Begin VB.Menu l5 
  23.       Caption         =   "&Solid"
  24.    End
  25.    Begin VB.Menu l4 
  26.       Caption         =   "&Clear Screen"
  27.    End
  28. Attribute VB_Name = "Form5"
  29. Attribute VB_GlobalNameSpace = False
  30. Attribute VB_Creatable = False
  31. Attribute VB_PredeclaredId = True
  32. Attribute VB_Exposed = False
  33. Private Sub l1_Click()
  34. For l = 1 To 1500
  35. Line -(Rnd * 6000 + 80, Rnd * 5000 + 80), QBColor(Rnd * 14 + 1)
  36. Next l
  37. End Sub
  38. Private Sub l2_Click()
  39. For p = 1 To 6000
  40. PSet (Rnd * 6000, Rnd * 6000), QBColor(Rnd * 14 + 1)
  41. Next p
  42. End Sub
  43. Private Sub l3_Click()
  44. For B = 1 To 1500
  45. Line -(Rnd * 6000, Rnd * 5000), QBColor(Rnd * 14 + 1), B
  46. Next B
  47. End Sub
  48. Private Sub l4_Click()
  49. Form5.Cls
  50. End Sub
  51. Private Sub l5_Click()
  52. For c = 1 To 700
  53. Line -(Rnd * 6000, Rnd * 5000), QBColor(Rnd * 14 + 1), BF
  54. Next c
  55. End Sub
  56.